FM Towns: Free Software Collection 4/FM Towns Free Software Collection 4 - Disc 1.iso/tugi/user3.tug

Text File | 1991-10-18 | 5KB | 266 lines

TUGi_macro(v1.0)
sample_01()
{

    Screen(3);
    cls(1);
    paletteset();
    wind_init();
    wrtstr(
        " "
        "  はる９せん さんの作品です",
        " "
        " この画像データを表示しますか？",
        " "
    );
    wind_close();

    Question(
        Graph_View(
            Q:\DATA\BUD\BUD_A.TIF
            Q:\DATA\BUD\BUD_B.TIF
            Q:\DATA\BUD\BUD_C.TIF
        );
    );


    /***************************************/
    /**             ひろおさん            **/
    /***************************************/

    Screen(3);
    cls(1);
    paletteset();
    wind_init();
    wrtstr(
        " "
        "    ＦＴＯＷＮＳ１リアルタイム会議室議長",
        "        杉本ひろおさんの作品です<^_^>"
        " "
        "          この画像データを表示しますか？",
        " "
    );
    wind_close();

    Question(
        Graph_View(
            Q:\DATA\HIROGRAP\HIRO4.TK4
            Q:\DATA\HIROGRAP\HIRO3.TK4
            Q:\DATA\HIROGRAP\HIRO5.TK4
            Q:\DATA\HIROGRAP\HIRO7.TK4
            Q:\DATA\HIROGRAP\HIRO8.TK4
            Q:\DATA\HIROGRAP\HIRO9.TK4
            Q:\DATA\HIROGRAP\IKINUKI1.TK4
            Q:\DATA\HIROGRAP\IKINUKI2.TK4
            Q:\DATA\HIROGRAP\IKINUKI4.TK4
            Q:\DATA\HIROGRAP\IKINUKI5.TK4
            Q:\DATA\HIROGRAP\IKINUKI6.P16
            Q:\DATA\HIROGRAP\IKINUKI7.TK4
            Q:\DATA\HIROGRAP\IKINUKI8.TK4
            Q:\DATA\HIROGRAP\IKI8_TMP.TK4
            Q:\DATA\HIROGRAP\HILLTOP.TK4
            Q:\DATA\HIROGRAP\DARK.TK4
            Q:\DATA\HIROGRAP\IKI4_TMP.TK4
            Q:\DATA\HIROGRAP\IKI5_TMP.TK4
        );
    );


    /****************/
    /**  BSG3T       **/
    /****************/

    Screen(3);
    cls(1);
    paletteset();
    wind_init();
    wrtstr(
        " "
        "     ＢＺ！さんの作品です",
        " "
        "     この画像データを表示しますか？",
        " "
    );
    wind_close();

    Question(
        Graph_View(
            Q:\DATA\BSG3T\BSG3T.P32
            Q:\DATA\BSG4T\BSG4T.P32
        );
    );

    /***************************************/
    /**  シナモンさん  **/
    /****************************************/

    Screen(3);
    cls(1);
    paletteset();
    wind_init();
    wrtstr(
        " "
        "     シナモンさんの作品です",
        " "
        "     この画像データを表示しますか？",
        " "
    );
    wind_close();

    Question(
        Graph_View(
            Q:\DATA\CHINAMON\SRTCG03.TIF
            Q:\DATA\CHINAMON\SRTCG04.TIF
        );
    );


    /***************************************/
    /**  そうじろうさん  **/
    /****************************************/

    Screen(3);
    cls(1);
    paletteset();
    wind_init();
    wrtstr(
        " "
        "    そうじろうさんの作品です",
        " "
        "    この画像データを表示しますか？",
        " "
    );
    wind_close();

    Question(
        Graph_View(
            Q:\DATA\SOUJIRO\KOU.P16
            Q:\DATA\SOUJIRO\KAN.P16
            Q:\DATA\SOUJIRO\SYOKATU.P16
            Q:\DATA\SOUJIRO\TYOU.TIF
            Q:\DATA\SOUJIRO\HOU.P16
        );
    );


    /***************************************/
    /**  WHIPS用ジャケットデータ  **/
    /****************************************/

    Screen(3);
    cls(1);
    paletteset();
    wind_init();
    wrtstr(
        " "
        "      M.J.KOZOUさんのＣＤプレイヤー",
        "      ”ＷＨＩＰＳ”用のジャケットデータです。"
        "     （いつも愛用させて頂いてます<^_^>）"
        " "
        "        この画像データを表示しますか？",
        " "
    );
    wind_close();
    Question(
        Graph_View(
            Q:\DATA\WHIPSJC3\WHIPS3.TIF
            Q:\DATA\WHIPSJC2\WHIPS2.TIF
            Q:\DATA\WHIPSJC4\WHIPS4.TIF
        );
    );


    /***************************************/
    /**  SMOKE  **/
    /****************************************/

    Screen(3);
    cls(1);
    paletteset();
    wind_init();
    wrtstr(
        " "
        "  ＡＳＦさんのレイトレ作品です。",
        " "
        "  この画像データを表示しますか？",
        " "
    );
    wind_close();

    Question(
        Graph_View(
            Q:\DATA\ASFCG\YUKI.TIF
            Q:\DATA\ASFCG\YUKI2.TIF
            Q:\DATA\ASFCG\LOGHOUSE.TIF
        );
    );


    /***************************************/
    /**  KOOL  **/
    /****************************************/

    Screen(3);
    cls(1);
    paletteset();
    wind_init();
    wrtstr(
        " "
        "  Ｋ◎◎Ｌさんのデータです。",
        " "
        "  この画像データを表示しますか？",
        " "
    );
    wind_close();

    Question(
        Graph_View(
            Q:\DATA\KOOLA\KOOL.TIF
            Q:\DATA\KOOLB\WAHAHHA.TIF
        );
    );

    /***************************************/
    /**  drw?  **/
    /****************************************/

    Screen(3);
    cls(1);
    paletteset();
    wind_init();
    wrtstr(
        " "
        "  山口　智史さんの作品です。",
        " "
        " この画像データを表示しますか？",
        " "
    );
    wind_close();

    Question(
        Graph_View(
            Q:\DATA\MMS\MYROOM\MYROOM.TIF
            Q:\DATA\MMS\SEPIA\SEPIA.TIF
        );
    );

    /****************/
    /**  お終いっ  **/
    /****************/

    Screen(3);
    cls(1);
    paletteset();
    wind_init();
    wrtstr(
        " ",
        " ",
        "   他のデータも見てみますか？"
    );
    wind_close();
    Question(
        MAIN2SB2.TUG
    );
    END.TUG
}